home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Magazine / SFX / sfx-data / _rexx / Test.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-07-19  |  677 b   |  30 lines
  1. /* SFX External Operator Test */
  2.  
  3. SIGNAL ON SYNTAX
  4. OPTIONS RESULTS
  5.  
  6. ADDRESS REXX_SFX
  7.  
  8. SFX_GetActiveBuffer
  9. buf1=RESULT
  10. IF buf1>-1 THEN DO
  11.     SFX_SelOperator 'Amplify'
  12.     SFX_SetOperatorParam 'Amplify' 'P1S' '"100 %"'
  13.     SFX_SetOperatorParam 'Amplify' 'P1E' '"0 %"'
  14.     SFX_SetOperatorParam 'Amplify' 'P1ModShape' 'Curve'
  15.     SFX_SetOperatorParam 'Amplify' 'P1CurveExp' '1.0'
  16.     SFX_ProcessSample buf1
  17.     IF RC=0 THEN DO
  18.         buf2=RESULT
  19.         SFX_RenameBuffer buf2 '"Amplified sample"'
  20.     END
  21.     ELSE SFX_Message '"Operator Amplify failed !"'
  22. END
  23. ELSE SFX_Message '"No sample to operate on !"'
  24. SFX_Activate                                                /* fertig */
  25. EXIT
  26.  
  27. SYNTAX:
  28.     SAY "Error #"||RC||":" ERRORTEXT(RC) "in line "||SIGL
  29. EXIT
  30.